﻿Public Class MuhCekDurumu : Inherits Process

	Public Overrides Sub GenericEvent(ByVal e As ProcessEventArgs)
		Select Case e.EventType
			Case EventType.Initialize
				Start("Çek durumu değişikliği", "Çek numarasını girin.")
				AddText("@ceknoyeni", "Çek no.", "nl", "", "Çek numarasını girmek zorundasınız.")
				StartBody()
				AddDataWindow()
			Case EventType.ValidateForm
				Rs = Muhasebe.OdemeEmri.CekOku(Remote, Input("ceknoyeni"))
				If Check("ceknoyeni", Rs.EOF, "Çek kaydı bulunamadı.") Then Exit Sub
				DataWindow.AddGroup("Çek Bilgileri", "ceknoyeni*;tarih*;onay*;cekkod*;cekno*;odeemrino*;miktar*")
				DataWindow.AddGroup("Alacaklı Bilgileri", "kimlik*;kime*;adres*;tel*")
				DataWindow.AddGroup("Bozdurulma/İptal", "iptalkod*;boztar*")
				DataWindow.AddGroup("Maaş Bilgileri", "ay*;ayeki*;donem*;yil*")
				DataWindow.AddGroup("Fatura Bilgileri", "fatura*")
				DataWindow.AddGroup("Kayıt Bilgileri", "islemtar*;kaykul*;rowid*")
				DataWindow.Recordset = Rs
				Help = "Devam butonuyla çek durumunda değişiklik yapabilirsiniz."
				Buttons.Show("Next.Reset")
				e.Result = True
			Case EventType.Save
				ShowDialog("save")
		End Select
	End Sub

	Public Overrides Sub DialogEvent(e As ProcessEventArgs)
		Select Case e.EventType
			Case EventType.Initialize
				Modal.Start("Çek durumu değişikliği", "Değişiklikleri yapın.")
				Modal.AddCombo("durum", "Çek durumu", "1:(Varsayılan),2:Bozdurulmuş,3:İptal edilmiş", "width=10;nl")
				Modal.AddDate("tarih", "İptal/boz. tarihi", "nl")
			Case EventType.Shown
				Rs = Muhasebe.OdemeEmri.CekOku(Remote, Input("ceknoyeni"))
				Modal.Input("durum") = If(IsNull(Rs("boztar")), "1", If(IsNull("iptalkod", "") = "I", "2", "3"))
				Modal.Input("tarih") = Rs("boztar")
				Modal.Buttons.Show("Save")
			Case EventType.Save
				Muhasebe.OdemeEmri.CekDurumuDegistir(Remote, Input("ceknoyeni"), Modal.Input("durum"), Modal.Input("tarih"))
				Info("Değişiklik gerçekleştirilmiştir.")
				Modal.Close()
				Close()
		End Select
	End Sub

End Class

